home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Amigazette 9.adf / Basic / LeesScherm < prev    next >
Text File  |  1991-03-15  |  543b  |  29 lines
  1. REM
  2. REM Demo van de tekst 'LeesScherm'.
  3. REM
  4.  
  5. REM Libraries + .BMaps : Ldscr.library in de LIBS:-directory
  6. REM                      Ldscr.Bmap in de LIBS:-directory
  7. REM
  8. REM Bijzonderheden : Breedte van het scherm moet kloppen.
  9. REM
  10.  
  11. DECLARE FUNCTION ldscr& LIBRARY
  12. LIBRARY "ldscr.library"
  13.  
  14. SCREEN 2,320,256,4,1
  15. WINDOW 3,,,0,2
  16. Naam$="SYS:Lo-Res/PIC01"
  17. GOSUB LeesScherm
  18. WHILE MOUSE(0)=0 : WEND
  19. WHILE MOUSE(0)<>0 : WEND
  20. WINDOW CLOSE 3
  21. SCREEN CLOSE 2
  22. LIBRARY CLOSE
  23. END
  24.  
  25. LeesScherm:
  26. Scherm$=Naam$+CHR$(0)
  27. sch&=ldscr& (SADD(scherm$),WINDOW(7))
  28. RETURN
  29.